unit reportslist;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Buttons,
  ComCtrls;

type

  { TfrmReportsList }

  TfrmReportsList = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    btnEditReports: TBitBtn;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure btnEditReportsClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  frmReportsList: TfrmReportsList;

implementation

{$R *.lfm}

{ TfrmReportsList }

{ TODO 4 : Звіт за період по обороту
Сума всіх накладних за заданий період
Чистий дохід - Це різниця між вхідною та продажною ціною
Валовий дохід = Сума всіх операцій
Назва Кільк проданих шт, їх загальна сума, чистий дохід з проданого
}
{ TODO 4 : Звіт по закупкам
{
Загальна кількість
Загальна сума - по ревізії по складу
мін кільк - видалити
}
}

uses main,storehouseselect;

procedure TfrmReportsList.BitBtn1Click(Sender: TObject);
begin
  FrmMain.DSStoreHouses.DataSet.Open;
  FrmMain.frDBDataSet.DataSource:=FrmMain.DSStoreHouses;
  FrmMain.frReport.LoadFromFile(FrmMain.program_dir+'reports\storehouseslist.lrf');
  FrmMain.frReport.ShowReport;
end;

procedure TfrmReportsList.BitBtn2Click(Sender: TObject);
begin
  frmStoreHouseSelect.ShowModal;
  if (FrmMain.storeHouseSelectedId<>0) then begin
    FrmMain.DSStoreHousesNomenclatureView.DataSet.Filter:='storehouseid='+IntToStr(FrmMain.storeHouseSelectedId);
    FrmMain.DSStoreHousesNomenclatureView.DataSet.Filtered:=True;
    FrmMain.DSStoreHousesNomenclatureView.DataSet.Refresh;
    FrmMain.frDBDataSet.DataSource:=FrmMain.DSStoreHousesNomenclatureView;
    FrmMain.frReport.LoadFromFile(FrmMain.program_dir+'reports\storehousesrevision.lrf');
    FrmMain.frReport.ShowReport;
  end;
end;

procedure TfrmReportsList.BitBtn3Click(Sender: TObject);
begin
  FrmMain.frReport.ShowReport;
end;

procedure TfrmReportsList.btnEditReportsClick(Sender: TObject);
begin
  FrmMain.frReport.DesignReport;
end;

end.

